﻿Public Class Player



    Public Id As Integer

    Public TeamId As Integer



    Sub New(ByVal UserId As Integer, ByVal TeamId As Integer, ByVal Settings As GameSettings)
        Me.Id = UserId
        Me.TeamId = TeamId


    End Sub





    Public Commander As ICommander

    Public Units() As Unit


    Public Color






End Class